home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 July / EnigmA AMIGA RUN 20 (1997)(G.R. Edizioni)(IT)[!][issue 1997-07 & 08][EAR-CD IV].iso / earcd / comm / ums / pint.lha / UMS / Rexx / SetScanMode.pint < prev    next >
Text File  |  1997-03-04  |  2KB  |  97 lines
  1. /* ------------------------------------------------------------------------
  2.    :Program.    SetScanMode
  3.     :Contents.   Sets PINT's scanmodes....
  4.    :Author.     David Rydh
  5.    :Address.    Snail Mail:              EMail: dary@lindesign.se
  6.    :Address.    Åsgatan 5                FIDO: 2:203/638.2
  7.    :Address.    S-666 31 Bengtsfors
  8.    :History.    v1.1 09-Feb-97
  9.    :Requires    UMS, PINT
  10.    :Version.    $VER: SetScanMode.pint 1.1 (09.02.97)
  11.    :Copyright.  Public Domain
  12.    :Language.   ARexx
  13.    :Translator. RexxMast
  14. ------------------------------------------------------------------------ */
  15.  
  16. /*** Startup ***/
  17.  
  18. options results
  19.  
  20. RC = 0
  21.  
  22. signal on BREAK_C
  23. signal on BREAK_D
  24. signal on BREAK_E
  25. signal on BREAK_F
  26. signal on ERROR
  27. signal on HALT
  28. signal on IOERR
  29. signal on SYNTAX
  30.  
  31. /*** Init ***/
  32.  
  33. call addlib("rexxdossupport.library", 0, -30)
  34. call addlib("ums.library", 0, -210, 11)
  35. call UMSInitConsts()
  36.  
  37. /*** Arguments ***/
  38.  
  39. ProgramName = "SetScanMode";
  40. ArgsTemplate = "SCANMODE1/A,SCANMODE2/A"
  41.  
  42. parse arg arguments
  43. if strip(arguments) = '?' then do
  44.   call writech(STDOUT, ArgsTemplate || ': ')
  45.   arguments = readln(STDIN)
  46. end; else nop
  47.  
  48. if ~ReadArgs(arguments,ArgsTemplate,"args.") then do
  49.   say Fault(RC, ProgramName)
  50.   exit 10
  51. end; else nop
  52.  
  53.  
  54. /*** Login ***/
  55.  
  56. STATUS
  57. if result~='GROUP' & result~='ARTICLE' then EXIT 5
  58.  
  59. GETACCOUNT
  60. OldAccount=result
  61.  
  62. account=UMSDupAccount(OldAccount)
  63.  
  64. SCANMODE args.scanmode1 args.scanmode2
  65.  
  66.  
  67. /*** Final cleanup ***/
  68.  
  69. BREAK_C:
  70. BREAK_D:
  71. BREAK_E:
  72. BREAK_F:
  73. ERROR:
  74. HALT:
  75. IOERR:
  76. SYNTAX:
  77.  
  78. IF RC ~= 0 THEN DO
  79.   SAY "Error: " rc errortext(rc) "Line" sigl
  80. END
  81.  
  82. /*** Logout ***/
  83.  
  84. UMSLogout(account)
  85.  
  86. exit 0
  87.  
  88.  
  89. /*** Support ***/
  90.  
  91. CheckErr: procedure expose account
  92.   err = UMSErrNum(account)
  93.   if err ~= 0 then do
  94.     say "UMS Error #" || err || ": " || UMSErrTxt(account)
  95.   end
  96. return
  97.